
module cldconst

   implicit none

   integer :: k700   ! model level nearest 700 mb
end module cldconst
